home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1990: Discy Business / Discy Business.2mg / DEV.CD / GUIDED.TOURS / IIC.PLUS.TOUR / BASIC / STARTUP (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1986-04-28  |  3.0 KB  |  125 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  ONERR  GOTO 10000
  2. 1  REM  COPYRIGHT APPLE COMPUTER, INC. 1983, 1986  ALL RIGHTS RESERVED  V1.0  6/12/86
  3. 2  FOR X = 928 TO 933: POKE X,0: NEXT X
  4. 3  GOSUB 5000
  5. 4  GOSUB 6000
  6. 5  DIM XY(6,60),N(6)
  7. 6  PRINT  CHR$(21)
  8. 7 D$ =  CHR$(4):XB = 5:YB = 16
  9. 10  HOME : COLOR= 15: VTAB 5: HTAB 5: PRINT "Apple presents"
  10. 15  VTAB 12: HTAB 12: PRINT "Getting down to..."
  11. 20  PRINT D$;"BLOAD LOASM2.0"
  12. 25 R = 0: GOSUB 8000: REM  READ DATA
  13. 27  GOSUB 4000
  14. 30  GOSUB 2000: REM  PLOT WORD BASIC
  15. 40  GOSUB 3000: REM  SET UP BORDER
  16. 50  GOSUB 1000: REM  SCROLL & WAIT FOR KEY
  17. 55  TEXT : HOME : VTAB 10: HTAB 10: PRINT "Please wait..."
  18. 60  PRINT : PRINT  CHR$(4);"RUN MENU"
  19. 100  END 
  20. 499  END 
  21. 1000 R = 6:I = 0:C = 1: COLOR= 6
  22. 1005 DL = 16384 +768:HL = 16384:VL = 16387
  23. 1010  POKE DL +0,0: POKE DL +1,39: POKE DL +2,0: POKE DL +3,0: POKE DL +4,0: CALL HLOC
  24. 1020  GOSUB 1500: IF I <0  THEN  GOTO 1200
  25. 1030  POKE DL +0,39: POKE DL +1,39: POKE DL +2,39: POKE DL +3,0: POKE DL +4,0: CALL VLOC
  26. 1040  GOSUB 1500: IF I <0  THEN  GOTO 1200
  27. 1050  POKE DL +0,0: POKE DL +1,39: POKE DL +2,39: POKE DL +3,39: POKE DL +4,1: CALL HLOC
  28. 1060  GOSUB 1500: IF I <0  THEN  GOTO 1200
  29. 1070  POKE DL +0,0: POKE DL +1,0: POKE DL +2,39: POKE DL +3,0: POKE DL +4,1: CALL VLOC
  30. 1080  GOSUB 1500: IF I <0  THEN  GOTO 1200
  31. 1100 K = 0: COLOR= C
  32. 1110  IF K >NP(R) *2 -2  THEN  GOTO 1130
  33. 1120  HLIN XY(R,K) +XB,XY(R,K +1) +XB AT R +YB
  34. 1125 K = K +2: GOTO 1110
  35. 1130 R = R -1: IF R > = 0  THEN 1150
  36. 1140 R = 6:C = C +1: IF C >15  THEN C = 1
  37. 1145  COLOR= C
  38. 1150  GOSUB 1500
  39. 1199  GOTO 1010
  40. 1200  RETURN 
  41. 1500 J =  PEEK( -16384)
  42. 1510  IF J <128  THEN  GOTO 1590
  43. 1520  IF J = 141  THEN I =  -1
  44. 1530 J =  PEEK( -16368)
  45. 1590  RETURN 
  46. 2000 RO(0) = 0:RO(1) = 6:RO(2) = 1:RO(3) = 5:RO(4) = 2:RO(5) = 4:RO(6) = 3
  47. 2002  GR : COLOR= 15
  48. 2005  FOR R = 0 TO 6
  49. 2007 DC = 0
  50. 2010  FOR P = 1 TO NP(RO(R))
  51. 2015 X1 = XY(RO(R),DC):X2 = XY(RO(R),DC +1)
  52. 2020 J = 1
  53. 2025  IF X1 <X2  THEN  GOTO 2040
  54. 2030 J =  -1
  55. 2040  FOR I = X1 TO X2  STEP J: PLOT I +XB,RO(R) +YB: FOR K = 0 TO 20: NEXT : NEXT 
  56. 2042 DC = DC +2: NEXT 
  57. 2050  NEXT 
  58. 2100  FOR R = 4 TO 6
  59. 2105 J = NP(R) *2 -1
  60. 2110  FOR I = 0 TO NP(R) -2  STEP 2
  61. 2120 T = XY(R,I):XY(R,I) = XY(R,J -I):XY(R,J -I) = T
  62. 2130 T = XY(R,I +1):XY(R,I +1) = XY(R,J -(I +1)):XY(R,J -(I +1)) = T
  63. 2140  NEXT 
  64. 2150  NEXT 
  65. 2999  RETURN 
  66. 3000  REM  BORDER
  67. 3010 C = 0: COLOR= 0
  68. 3020  FOR I = 0 TO 39: PLOT I,0: GOSUB 3200: NEXT 
  69. 3030  FOR I = 1 TO 39: PLOT 39,I: GOSUB 3200: NEXT 
  70. 3040  FOR I = 38 TO 0  STEP  -1: PLOT I,39: GOSUB 3200: NEXT 
  71. 3050  FOR I = 38 TO 0  STEP  -1: PLOT 0,I: GOSUB 3200: NEXT 
  72. 3060 A$ = "Please press RETURN to start."
  73. 3065  VTAB 23: HTAB (20 - LEN(A$)/2) +1: PRINT A$
  74. 3080  REM A$ = "Copyright 1986 Apple Computer, Inc."
  75. 3085  REM VTAB 24: HTAB (20 -  LEN (A$) / 2): PRINT A$;
  76. 3100  RETURN 
  77. 3200 C = C +1: IF C >15  THEN C = 0
  78. 3210  COLOR= C: RETURN 
  79. 4000  CALL 16390
  80. 4010  POKE  -16300,0: POKE  -16297,0: POKE  -16302,0: POKE  -16304,0
  81. 4020  FOR I = 0 TO 19
  82. 4030  POKE 16384 +768,I
  83. 4040  CALL 16393
  84. 4050  NEXT 
  85. 4200  RETURN 
  86. 5000  FOR I = 768 TO 861: READ A: POKE I,A: NEXT I
  87. 5010  DATA 173,50,190,72,173,51,190
  88. 5020  DATA 72,169,30,141,50,190,169
  89. 5030  DATA 3,141,51,190,32,111,253
  90. 5040  DATA 104,141,51,190,104,141,50
  91. 5050  DATA 190,96,32,27,253,201,155
  92. 5060  DATA 240,31,201,141,208,35,96
  93. 5070  DATA 234,234,234,162,0,32,117
  94. 5080  DATA 253,160,2,138,145,105,200
  95. 5090  DATA 169,0,145,105,200,169,2
  96. 5100  DATA 145,105,76,57,213,141,0
  97. 5110  DATA 2,169,141,162,1,96,201
  98. 5120  DATA 136,240,8,201,149,240,04
  99. 5130  DATA 201,160,144,1,96,169,160
  100. 5140  DATA 56,176,192
  101. 5150  RETURN 
  102. 6000  PRINT : PRINT  CHR$(4);"OPEN CALLNAME"
  103. 6010  PRINT  CHR$(4);"CLOSE CALLNAME"
  104. 6020  PRINT  CHR$(4);"DELETE CALLNAME"
  105. 6030  PRINT  CHR$(4);"OPEN CALLNAME"
  106. 6040  PRINT  CHR$(4);"WRITE CALLNAME"
  107. 6050  PRINT "computer user"
  108. 6060  PRINT  CHR$(4);"CLOSE CALLNAME"
  109. 6070  RETURN 
  110. 8000  FOR I = 0 TO 6
  111. 8005  READ Y: READ NP(Y):K = 0
  112. 8010  FOR J = 1 TO NP(Y): READ XY(Y,K),XY(Y,K +1):K = K +2: NEXT 
  113. 8020  NEXT 
  114. 8050  RETURN 
  115. 9910  DATA  0,5,0,3,8,8,13,16,18,22,25,28
  116. 9920  DATA   6,6,28,25,22,18,15,12,10,10,6,6,3,0
  117. 9930  DATA  1,7, 0,0,4,4,7,7,9,9,12,12,20,20,24,24
  118. 9940  DATA   5,7,24,24,20,20,16,16,10,10,6,6,4,4,0,0
  119. 9950  DATA    2,7,0,0,4,4,6,6,10,10,12,12,20,20,24,24
  120. 9960  DATA   4,7,24,24,20,20,16,16,10,10,6,6,4,4,0,0
  121. 9970  DATA  3,5,0,3,6,10,13,15,20,20,24,24
  122. 10000 ERR% =  PEEK(222): IF ERR% = 255  THEN  RESUME 
  123. 10005 EL =  PEEK(218) + PEEK(219) *256
  124. 10010  PRINT "Error "ERR%" occurred at line "EL: STOP 
  125. 20000  FOR I = 854 TO 861: PRINT  PEEK(I);",";: NEXT I